home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / pascal / pcxpas.com / SHOWEGA.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-10-15  |  811 b   |  29 lines
  1. program SHOWEGA;
  2.  
  3. (* Sample implementation of PCX.TPU for EGA. You need to have the
  4.    Turbo .BGI files in the current directory, or change Initgraph.
  5.    Enter a filename (without extension) on the command line or, if
  6.    running under Turbo, in the Parameters box. *)
  7.  
  8. uses GRAPH, CRT, PCX;
  9.  
  10. var   grdriver, grmode: integer;
  11.  
  12. begin
  13. pcxfilename:= paramstr(1) + '.PCX';
  14. grdriver:= ega; grmode:= egahi;               { 640x350x16 format }
  15. initgraph(grdriver, grmode, '');
  16. setvisualpage(1);                             { Hide the image }
  17. read_pcx_file(grdriver, pcxfilename);
  18. if file_error then
  19. begin
  20.   closegraph;
  21.   write('File not found.');
  22.   halt;
  23. end;
  24. setallpalette(pal);
  25. setvisualpage(0);                             { Show the image }
  26. repeat until readkey <> #1;
  27. closegraph;
  28. end.
  29.